home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / data / dora102f / dorauset.plp < prev    next >
Text File  |  1993-07-08  |  22KB  |  567 lines
  1. /*    オートアップロード制御ファイル作成処理    */
  2. %SETUP1    {loop    ({footnote({アップロード先は？});SNDMSG({erande_f.snd});
  3.         select    ({アップロード先は？},
  4.             Wtime4,{im({No})},
  5.             { テキストメール },{AUTOmail;im({Yes})},
  6.             {   ボード       },{AUTOforum;im({Yes})},
  7.             {データライブラリ},{AUTOdlib;im({Yes})},
  8.             {シスオペ宛メール},{AUTOsmail;im({Yes})},
  9.             {  プロフィール  },{AUTOprof;im({Yes})},
  10.             { メモの書き込み },{AUTOwho;im({Yes})},
  11.             {    終    了    },{im({No})}
  12.             )});
  13.     CloseAllMemo;mclear(memono);
  14.     case    (@filechk(TEMP2|{_mopres.ctl}),
  15.         {Yes},{mread(TEMP2|{_mopres.ctl},memono)});
  16.     };
  17. /*    テキストメールアップ制御文作成    */
  18. %AUTOmail{footnote({テキストメール送信制御文作成});
  19.     var mail[10];var title[40];var file[64];var ok[2];
  20.     loop    ({SNDMSG({nyuryo_f.snd});
  21.         %a    @plane(    {cテキストメール送信\n}|
  22.                 {t  送信先ＩＤ  /xxxxxxxxx\n}|
  23.                 {t   タイトル   /xxxxxxxxxxxxxxxxxxxx}|
  24.                         {xxxxxxxxxxxxxxxxxxxx\n}|
  25.                 {t 送信ファイル /\n}|
  26.                 {s              / ﾌｧｲﾙ一覧/ 新規作成 \n}|
  27.                 {s              / 登録 / 取消 \n},
  28.                 mail,title,file);
  29. mail:=    @head(@getline(a,1,1),{\n});    title:=    @head(@getline(a,2,1),{\n});
  30. file:=    @head(@getline(a,3,1),{\n});    %sel    @head(@getline(a,4,1),{\n});
  31. ok:=    @head(@getline(a,5,1),{\n});
  32.         case    (sel,{ 1},{file:=@FILEsel1;im({Yes})},
  33.             { 2},{SHINKI;im({Yes})});
  34.         case    (ok,{ 1},
  35.             {case    (@getchar(file,2,2)={:\},
  36.                 {No},{footnote({ファイル名はドライブからの}|
  37.                         {フルパスで指定してください});
  38.                 im({Yes})},
  39.                 {Yes},{%cntl    {mail=}|mail|{;}|
  40.                     {file=}|file|{;}|{title=}|title;
  41.                 write(TEMP2|{_mopres.ctl},cntl|{\n});
  42.                 im({No});
  43.                 })},
  44.             { 2},{im({No})}
  45.             )})};
  46. /*    アップ用文書を清書する    */
  47. %rewrite{footnote({編集中のメモ内容を清書しています});
  48.     CloseAllMemo;dispoff({Yes});    %cdir @getcdir;setcdir(CDIR);
  49.     delfile(TEMP2|{_moptext.tmp});    delfile(TEMP2|{_moptext.new});
  50.     mwrite(TEMP2|{_moptext.tmp},memono);
  51.     command({txf -f -i }|TEMP2|{_moptext.tmp -o }|TEMP2|{_moptext.new});
  52.     dispoff({No});
  53.     case    (@filechk(TEMP2|{_moptext.new}),
  54.         {Yes},{mclear(memono);mread(TEMP2|{_moptext.new},memono);
  55.             mopen(memono,0,21,639,459,{w})},
  56.         {No},{display({清書機能には TXF.EXE がパスの通った}|
  57.                 {ディレクトリに必要です\n});
  58.             wait(2);mopen(memono,0,21,639,459,{w})}
  59.         );
  60.     setcdir(cdir);im({Yes})};
  61. /*　　アップ文書作成をキャンセルする　　*/
  62. %cancel{SNDMSG({kaknin_f.snd});footnote({作成中の文書を取消しますか？});
  63.     select({作成中の文書を取消しますか？},
  64.         Wtime4,{footnote({});im({Yes})},
  65.         {  は  い  },{
  66.         CloseAllMemo;dispoff({Yes});delfile(TEMP2|{_mopmemo.bak});
  67.         mwrite(TEMP2|{_mopmemo.bak},memono);
  68.         dispoff({No});mopen(memono);mclose(3);footnote({});im({No})},
  69.         {  いいえ  },{footnote({});im({Yes})})};
  70. /*    テキストファイル作成処理    */
  71. %SHINKI{%savememo{
  72.         footnote({送信用テキストファイルを新規作成します});
  73.         mkdir2(TEMP);%file1    @crefile(UP,{res});
  74.         CloseAllMemo;mwrite(UP2|file1,memono);file:=UP2|file1;
  75.         mopen(memono);mclose(3);im({No})};
  76.     %memono    @case    (@mlast==9,{Yes},{im({9})},{No},{im(@mlast+1)});
  77.     footnote({送信用テキストファイルを新規作成します});
  78.     CloseAllMemo;
  79.     madd(memono,{\n});mclear(memono);mopen(memono,0,21,639,459,{w});
  80.     loop    ({footnote({終了取消清書},{b});waitx();
  81.         case    (@xtype,
  82.             101,{savememo},    201,{savememo},
  83.             102,{cancel},    202,{cancel},
  84.             103,{rewrite},    203,{rewrite},
  85.             ,{im({Yes})});
  86.         })};
  87. /*    アップロードファイル更新処理    */
  88. %KOUSHIN{    [file,memono]
  89.     %savememo{footnote({送信用テキストファイルを更新します});
  90.         CloseAllMemo;mwrite(file,memono);im({No});
  91.         };
  92.     footnote({送信用テキストファイルを更新します});
  93.     CloseAllMemo;madd(memono,{\n});mclear(memono);mread(file,memono);
  94.     mopen(memono,0,21,639,459,{w});
  95.     loop    ({footnote({終了取消清書},{b});waitx();
  96.         case    (@xtype,
  97.             101,{savememo},    201,{savememo},
  98.             102,{cancel},202,{cancel},
  99.             103,{rewrite},    203,{rewrite},
  100.             ,{im({Yes})});
  101.         })};
  102. /*    書き込みメモファイル作成処理    */
  103.     %MEMOset{%a　@plane({c｢Wコマンドで表示される｣メモ内容を登録する\n}|
  104.     {tメモ内容/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n}|
  105.     {s              / 登録 / 取消 \n},);
  106.     memoK:=    @head(@getline(a,1,1),{\n});
  107.         mkdir2(TEMP);%file1    @crefile(UP,{res});
  108.         write(UP2|file1,memoK);file:=UP2|file1};
  109. /*    書き込みメモアップロードファイル更新処理    */
  110.     %MEMOrset{    [text]
  111.     memoK:=@read(text);
  112.     %a　@plane({c｢Wコマンドで表示される｣メモ内容を登録する\n}|
  113.     {tメモ内容/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n}|
  114.     {s              / 登録 / 取消 \n},memoK);
  115.     memoK:=    @head(@getline(a,1,1),{\n});
  116.         mkdir2(TEMP);%file1    @crefile(UP,{res});
  117.         write(UP2|file1,memoK);file:=UP2|file1};
  118. /*    ボードへの書き込み制御文作成    */
  119. %AUTOforum{footnote({ボードへの発言制御文作成});
  120. var forum[8];var mes[3];var reply[4];var title[40];var file[64];var ok[2];
  121.     loop    ({SNDMSG({nyuryo_f.snd});
  122.         %a    @plane(    {cボードへの新規発言\n}|
  123.                 {t ネット名 /xxx\n}|
  124.                 {t  ボード番号  /xxx\n}|
  125.                 {tコメント元番号/xxx\n}|
  126.                 {t   タイトル   /xxxxxxxxxxxxxxxxxxxx}|
  127.                         {xxxxxxxxxxxxxxxxxxxx\n}|
  128.                 {t 発言ファイル /\n}|
  129.                 {s              / ﾌｧｲﾙ一覧 / 新規作成 \n}|
  130.                 {s              / 登録 / 取消 \n},
  131.                 NET,mes,reply,title,file);
  132. forum:=    @head(@getline(a,1,1),{\n});    mes:=    @head(@getline(a,2,1),{\n});
  133. reply:=    @head(@getline(a,3,1),{\n});    title:=    @head(@getline(a,4,1),{\n});
  134. file:=    @head(@getline(a,5,1),{\n});    %sel    @head(@getline(a,6,1),{\n});
  135. ok:=    @head(@getline(a,7,1),{\n});
  136.         case    (sel,{ 1},{file:=@FILEsel1;im({Yes})},
  137.             { 2},{SHINKI;im({Yes})});
  138.         case    (ok,{ 1},
  139.             {case    (@getchar(file,2,2)={:\},
  140.                 {No},{footnote({ファイル名はドライブからの}|
  141.                         {フルパスで指定してください});
  142.                  im({Yes})},
  143.                 {Yes},{%cntl{forum=}|forum|{;}|{mes=}|mes|{;}|
  144.                     {reply=}|reply|{;}|{file=}|file|{;}|
  145.                     {title=}|title;
  146.                 write(TEMP2|{_mopres.ctl},cntl|{\n});
  147.                 im({No})})},
  148.             { 2},{im({No})}
  149.             )})};
  150. /*    データライブラリ書き込み制御文作成    */
  151. %AUTOdlib{footnote({データライブラリへの登録制御文作成});
  152.     var forum[8];var libno[3];var dataname[12];var keyword[80];
  153.     var datafile[64];var docfile[64];var ok[2];
  154.     loop    ({SNDMSG({nyuryo_f.snd});
  155.         %a    @plane(    {cデータライブラリへの登録\n}|
  156.                 {t ネット名 /xxx\n}|
  157.                 {tライブラリ番号/xxx\n}|
  158.                 {t   データ名   /xxxxxxxxxxxx\n}|
  159.                 {t  コメント  /\n}|
  160.                 {tデータファイル/\n}|
  161.                 {s              ファイル一覧/ 選択 \n}|
  162.                 {t 概要ファイル /\n}|
  163.                 {s              ファイル一覧/ 選択 \n}|
  164.                 {s              / 登録 / 取消 \n},
  165.                 NET,libno,dataname,keyword,datafile,docfile);
  166. forum:=    @head(@getline(a,1,1),{\n});    libno:=@head(@getline(a,2,1),{\n});
  167. dataname:=@head(@getline(a,3,1),{\n});    keyword:=@head(@getline(a,4,1),{\n});
  168. datafile:=@head(@getline(a,5,1),{\n});    %sel1    @head(@getline(a,6,1),{\n});
  169. docfile:=@head(@getline(a,7,1),{\n});    %sel2    @head(@getline(a,8,1),{\n});
  170. ok:=@head(@getline(a,9,1),{\n});
  171.     case    (sel1,{ 1},{datafile:=@FILEsel1;im({Yes})});
  172.     case    (sel2,{ 1},{docfile:=@FILEsel1;im({Yes})});
  173.     case    (ok,{ 1},{case(@getchar(datafile,2,2)={:\},
  174.             {No},{footnote(ERRMSG);im({Yes})},
  175.             {Yes},{%cntl{forumlib=}|forum|{;}|{libno=}|libno|{;}|
  176.             {dataname=}|dataname|{;}|{keyword=}|keyword|{;}|
  177.             {datafile=}|datafile|{;}|{docfile=}|docfile|{;};
  178.             write(TEMP2|{_mopres.ctl},cntl|{\n});
  179.             im({No})})},
  180.             { 2},{im({No})}
  181.             )})};
  182. /*    シスオペ宛メールアップ制御文作成    */
  183. %AUTOsmail{footnote({シスオペ宛メール送信制御文作成});
  184.     var forum[8];var title[40];var file[64];var ok[2];
  185.     loop    ({SNDMSG({nyuryo_f.snd});
  186.         %a    @plane(    {cシスオペ宛メール送信\n}|
  187.                 {t ネット名 /xxx\n}|
  188.                 {t   タイトル   /xxxxxxxxxxxxxxxxxxxx}|
  189.                         {xxxxxxxxxxxxxxxxxxxx\n}|
  190.                 {t 送信ファイル /\n}|
  191.                 {s              / ﾌｧｲﾙ一覧 / 新規作成  \n}|
  192.                 {s              / 登録 / 取消 \n},
  193.                 NET,title,file);
  194. forum:=    @head(@getline(a,1,1),{\n});    title:=    @head(@getline(a,2,1),{\n});
  195. file:=    @head(@getline(a,3,1),{\n});    %sel    @head(@getline(a,4,1),{\n});
  196. ok:=    @head(@getline(a,5,1),{\n});
  197.         case    (sel,{ 1},{file:=@FILEsel1;im({Yes})},
  198.             { 2},{SHINKI;im({Yes})});
  199.         case    (ok,{ 1},{case    (@getchar(file,2,2)={:\},
  200.                 {No},{footnote({ファイル名はドライブからの}|
  201.                         {フルパスで指定してください});
  202.                  im({Yes})},
  203.                 {Yes},{%cntl{sysmail=}|forum|{;}|{file=}|
  204.                     file|{;}|{title=}|title;
  205.                 write(TEMP2|{_mopres.ctl},cntl|{\n});
  206.                 im({No})})},
  207.             { 2},{im({No})}
  208.             )})};
  209. /*    プロフィール情報書き込み制御文作成    */
  210. %AUTOprof{footnote({プロフィール情報登録制御文作成});
  211.     var file[64];var ok[2];
  212.     loop    ({%a    @plane(    {cプロフィール情報登録\n}|
  213.                 {t 登録ファイル /\n}|
  214.                 {s              / ﾌｧｲﾙ一覧/ 新規作成  \n}|
  215.                 {s              / 登録 / 取消 \n},
  216.                 file);
  217. file:=    @head(@getline(a,1,1),{\n});    %sel    @head(@getline(a,2,1),{\n});
  218. ok:=    @head(@getline(a,3,1),{\n});
  219.         case    (sel,{ 1},{file:=@FILEsel1;im({Yes})},
  220.                 { 2},{SHINKI;im({Yes})});
  221.         case    (ok,{ 1},{case    (@getchar(file,2,2)={:\},
  222.                 {No},{footnote(ERRMSG);im({Yes})},
  223.                 {Yes},{%cntl{profile=}|{;}|{file=}|file|{;};
  224.                 write(TEMP2|{_mopres.ctl},cntl|{\n});
  225.                 im({No})})},
  226.             { 2},{im({No})}
  227.             )})};
  228. /*    メモ書き込み制御文作成    */
  229. %AUTOwho{footnote({メモ書き込み制御文作成；｢WHOコマンドで出てくるメモです｣});
  230.     var file[40];var memoK[32];var ok[2];
  231.     loop    ({%a    @plane(    {cメモ書き込み情報登録\n}|
  232.                 {t 登録ファイル /\n}|
  233.                 {s              / ﾌｧｲﾙ一覧/ 新規作成  \n}|
  234.                 {s              / 登録 / 取消 \n},
  235.                 file    );
  236. file:=    @head(@getline(a,1,1),{\n});    %sel    @head(@getline(a,2,1),{\n});
  237. ok:=    @head(@getline(a,3,1),{\n});
  238.         case    (sel,{ 1},{file:=@FILEsel1;im({Yes})},
  239.                 { 2},{MEMOset;im({Yes})});
  240.         case    (ok,{ 1},{case    (@getchar(file,2,2)={:\},
  241.                 {No},{footnote(ERRMSG);im({Yes})},
  242.                 {Yes},{%cntl{whomemo=}|{;}|{file=}|file|{;};
  243.                 write(TEMP2|{_mopres.ctl},cntl|{\n});
  244.                 im({No})})},
  245.             { 2},{im({No})}
  246.             )})};
  247. /*    アップロードファイル指定処理    */
  248. %FILEsel1{var    upfile    [64];
  249.     SNDMSG({erande_f.snd});upfile:=@filesel;
  250.     case    (upfile,
  251.         {},{im({})},
  252.         ,{case    (@nochar(@getcdir)=3,
  253.             {Yes},    {upfile:=@getcdir|upfile},
  254.             {No},    {upfile:=@getcdir|{\}|upfile})}
  255.         );
  256.     im(upfile);
  257.     };
  258. /*    アップロード制御ファイル更新    */
  259. %UPDATE1{case    (@filechk(TEMP2|{_mopres.ctl}),
  260.         {Yes},{%LineNo    @xlinenum;
  261.     %MaxLine@nolmemo(memono);
  262.     %upld    @case(LineNo>MaxLine,{Yes},{im(@memo(memono,MaxLine,1))},
  263.             {No},{case(LineNo<1,{Yes},{im(@memo(memono,1,1))},
  264.                     {No},{im(@memo(memono,LineNo,1))})});
  265.     case    (@head(upld,{=}),
  266.         {sysmail},    {UPDATE(@UPDsmail(upld))},
  267.         {mail},        {UPDATE(@UPDmail(upld))},
  268.         {forum},    {UPDATE(@UPDforum(upld))},
  269.         {forumlib},    {UPDATE(@UPDdlib(upld))},
  270.         {profile},    {UPDATE(@UPDprof(upld))},
  271.         {whomemo},    {UPDATE(@UPDmemo(upld))}
  272.         );
  273.     },    
  274.     {No},{footnote({変更対象のアップロード制御ファイルが存在しません});
  275.     wait({3})});
  276.     CloseAllMemo};
  277. %UPDATE    {[new]
  278.     case    (new,
  279.         upld,{CloseAllMemo},    /* 変更無し */
  280.         {},        /* 削除 */
  281.         {CloseAllMemo;mclear(memono);
  282.         case(LineNo>1,{Yes},
  283.             {madd(memono,@read(TEMP2|{_mopres.ctl},1,LineNo-1))});
  284.         case(LineNo<MaxLine,{Yes},
  285.             {madd(memono,@read(TEMP2|{_mopres.ctl},LineNo+1))});
  286.         mwrite(TEMP2|{_mopres.ctl},memono);
  287.         },
  288.         ,        /* 変更あり */
  289.         {CloseAllMemo;mclear(memono);
  290.         case(LineNo>1,{Yes},
  291.             {madd(memono,@read(TEMP2|{_mopres.ctl},1,LineNo-1))});
  292.         madd(memono,new);
  293.         case(LineNo<MaxLine,{Yes},
  294.             {madd(memono,@read(TEMP2|{_mopres.ctl},LineNo+1))});
  295.         mwrite(TEMP2|{_mopres.ctl},memono);
  296.         })};
  297. /*    テキストメールアップ制御文更新    */
  298. %UPDmail{[upld]
  299.     footnote({テキストメール送信制御文更新});
  300.     var mail[127];var title[50];var file[64];var ok[2];
  301.     mail:=    @head(@body(upld,{mail=},{;}),{;});
  302.     title:=    @body(upld,{title=},{\n});
  303.     file:=    @head(@body(upld,{file=},{;}),{;});
  304.     loop    ({SNDMSG({nyuryo_f.snd});
  305.         %a    @plane(    {cテキストメール送信\n}|
  306.                 {t  送信先ＩＤ  /\n}|
  307.                 {t   タイトル   /xxxxxxxxxxxxxxxxxxxx}|
  308.                         {xxxxxxxxxxxxxxxxxxxx\n}|
  309.                 {t 送信ファイル /\n}|
  310.                 {s              / ﾌｧｲﾙ一覧 }|
  311.                         {/ 新規作成 / 内容更新 \n}|
  312.                 {s              / 登録 / 削除 / 取消 \n},
  313.                 mail,title,file);
  314. mail:=    @head(@getline(a,1,1),{\n});    title:=    @head(@getline(a,2,1),{\n});
  315. file:=    @head(@getline(a,3,1),{\n});    %sel    @head(@getline(a,4,1),{\n});
  316. ok:=    @head(@getline(a,5,1),{\n});
  317.         case    (sel,{ 1},{file:=@FILEsel1;im({Yes})},
  318.             { 2},{SHINKI;im({Yes})},
  319.             { 3},{KOUSHIN(file,memono+1);im({Yes})});
  320.         case    (ok,{ 1},{
  321.             case    (@getchar(file,2,2)={:\},
  322.                 {No},{footnote(ERRMSG);im({Yes})},
  323.                 {Yes},{im({mail=}|mail|{;}|{date=}|
  324.                     {file=}|file|{;}|{title=}|title|{\n})}
  325.                 );
  326.             },
  327.             { 2},{im({})},{ 3},{im(upld)},
  328.             ,{case(sel={ 0},{Yes},{im(upld)})}
  329.             )})};
  330. /*    ボードへの書き込み制御文更新    */
  331. %UPDforum{[upld]
  332.     footnote({ボードへの発言制御文更新});
  333. var forum[8];var mes[3];var reply[4];var title[44];var file[64];var ok[2];
  334.     forum:=    @head(@body(upld,{forum=},{;}),{;});
  335.     mes:=    @head(@body(upld,{mes=},{;}),{;});
  336.     reply:=    @head(@body(upld,{reply=},{;}),{;});
  337.     title:=    @body(upld,{title=},{\n});
  338.     file:=    @head(@body(upld,{file=},{;}),{;});
  339.     loop    ({SNDMSG({nyuryo_f.snd});
  340.         %a    @plane(    {cボードへの発言\n}|
  341.                 {t ネット名 /xxxxxx\n}|
  342.                 {t  ボード番号  /xxx\n}|
  343.                 {tコメント元番号/xxxx\n}|
  344.                 {t   タイトル   /xxxxxxxxxxxxxxxxxxxx}|
  345.                         {xxxxxxxxxxxxxxxxxxxx\n}|
  346.                 {t 発言ファイル /\n}|
  347.                 {s              / ﾌｧｲﾙ一覧 /}|
  348.                         { 新規作成 / 内容更新 \n}|
  349.                 {s              / 登録 / 削除 / 取消 \n},
  350.                 forum,mes,reply,title,file);
  351. forum:=    @head(@getline(a,1,1),{\n});    mes:=    @head(@getline(a,2,1),{\n});
  352. reply:=    @head(@getline(a,3,1),{\n});    title:=    @head(@getline(a,4,1),{\n});
  353. file:=    @head(@getline(a,5,1),{\n});    %sel    @head(@getline(a,6,1),{\n});
  354. ok:=    @head(@getline(a,7,1),{\n});
  355.         case    (sel,{ 1},{file:=@FILEsel1;im({Yes})},
  356.             { 2},{SHINKI;im({Yes})},
  357.             { 3},{KOUSHIN(file,memono+1);im({Yes})});
  358.         case    (ok,{ 1},{
  359.             case    (@getchar(file,2,2)={:\},
  360.                 {No},{footnote(ERRMSG);im({Yes})},
  361.                 {Yes},
  362.                 {im({forum=}|forum|{;}|{mes=}|mes|{;}|
  363.                     {reply=}|reply|{;}|{file=}|file|{;}|
  364.                     {title=}|title|{\n})}
  365.                 )},
  366.             { 2},{im({})},{ 3},{im(upld)},
  367.             ,{case(sel={ 0},{Yes},{im(upld)})}
  368.             )})};
  369. /*    データライブラリ書き込み制御文更新    */
  370. %UPDdlib{[upld]
  371.     footnote({データライブラリへの登録制御文更新});
  372.     var forum[12];var libno[3];var dataname[40];var keyword[80];
  373.     var datafile[64];var docfile[64];var ok[2];
  374.     forum:=        @tail(upld,{forum=},{;});
  375.     libno:=        @tail(upld,{libno=},{;});
  376.     dataname:=    @tail(upld,{dataname=},{;});
  377.     keyword:=    @tail(upld,{keyword=},{;});
  378.     datafile:=    @tail(upld,{datafile=},{;});
  379.     docfile:=    @tail(upld,{docfile=},{;});
  380.     loop    ({SNDMSG({nyuryo_f.snd});
  381.         %a    @plane(    {cデータライブラリへの登録\n}|
  382.                 {t ネット名 /xxxxxxxx\n}|
  383.                 {tライブラリ番号/xxx\n}|
  384.                 {t   データ名   /xxxxxxxxxxxx\n}|
  385.                 {t  キーワード  /\n}|
  386.                 {tデータファイル/\n}|
  387.                 {s              ファイル一覧/ 選択 \n}|
  388.                 {t 概要ファイル /\n}|
  389.                 {s              ファイル一覧/ 選択 \n}|
  390.                 {s              / 登録 / 削除 / 取消 \n},
  391.                 NET,libno,dataname,keyword,datafile,docfile);
  392. forum:=@head(@getline(a,1,1),{\n});    libno:=@head(@getline(a,2,1),{\n});
  393. dataname:=@head(@getline(a,3,1),{\n});    keyword:=@head(@getline(a,4,1),{\n});
  394. datafile:=@head(@getline(a,5,1),{\n});    %sel1    @head(@getline(a,6,1),{\n});
  395. docfile:=@head(@getline(a,7,1),{\n});    %sel2    @head(@getline(a,8,1),{\n});
  396. ok:=@head(@getline(a,9,1),{\n});
  397.     case    (sel1,{ 1},{datafile:=@FILEsel1;im({Yes})});
  398.     case    (sel2,{ 1},{docfile:=@FILEsel1;im({Yes})});
  399.     case    (ok,{ 1},{
  400.         case(@getchar(datafile,2,2)={:\},
  401.             {No},{footnote(ERRMSG);im({Yes})},
  402.             {Yes},{im({forumlib=}|forum|{;}|{libno=}|libno|{;}|
  403.             {dataname=}|dataname|{;}|{keyword=}|keyword|{;}|
  404.             {datafile=}|datafile|{;}|{docfile=}|docfile|{;\n})}
  405.                 )},
  406.             { 2},{im({})},{ 3},{im(upld)},
  407.             ,{case(sel1={ 0}&&sel2={ 0},{Yes},{im(upld)})}
  408.             )})};
  409. /*    シスオペ宛メールアップ制御文更新    */
  410. %UPDsmail{[upld]
  411.     footnote({シスオペ宛メール送信制御文更新});
  412.     var forum[8];var title[40];var file[64];var ok[2];
  413.     forum:=    @head(@body(upld,{sysmail=},{;}),{;});
  414.     title:=    @body(upld,{title=},{\n});
  415.     file:=    @head(@body(upld,{file=},{;}),{;});
  416.     loop    ({SNDMSG({nyuryo_f.snd});
  417.         %a    @plane(    {cシスオペ宛メール送信\n}|
  418.                 {t ネット名 /xxx\n}|
  419.                 {t   タイトル   /xxxxxxxxxxxxxxxxxxxx}|
  420.                         {xxxxxxxxxxxxxxxxxxxx\n}|
  421.                 {t 送信ファイル /\n}|
  422.                 {s              / ﾌｧｲﾙ一覧 /}|
  423.                         { 新規作成 / 内容更新 \n}|
  424.                 {s              / 登録 / 削除 / 取消 \n},
  425.                 NET,title,file);
  426. forum:=    @head(@getline(a,1,1),{\n});    title:=    @head(@getline(a,2,1),{\n});
  427. file:=    @head(@getline(a,3,1),{\n});    %sel    @head(@getline(a,4,1),{\n});
  428. ok:=    @head(@getline(a,5,1),{\n});
  429.         case    (sel,{ 1},{file:=@FILEsel1;im({Yes})},
  430.             { 2},{SHINKI;im({Yes})},
  431.             { 3},{KOUSHIN(file,memono+1);im({Yes})});
  432.         case    (ok,{ 1},{
  433.             case    (@getchar(file,2,2)={:\},
  434.                 {No},{footnote(ERRMSG);im({Yes})},
  435.                 {Yes},
  436.                 {im({sysmail=}|forum|{;}|{file=}|file|{;}|
  437.                     {title=}|title|{\n})}
  438.                 )},
  439.             { 2},{im({})},{ 3},{im(upld)},
  440.             ,{case(sel={ 0},{Yes},{im(upld)})}
  441.             )})};
  442. /*    プロフィール情報書き込み制御文更新    */
  443. %UPDprof{[upld]
  444.     footnote({プロフィール情報登録制御文更新});
  445.     var    file    [64];    var    ok    [2];
  446.     file:=    @tail(upld,{file=},{;});
  447.     loop    ({SNDMSG({nyuryo_f.snd});
  448.         %a    @plane(    {cプロフィール情報登録\n}|
  449.                 {t 登録ファイル /\n}|
  450.                 {s              / ﾌｧｲﾙ一覧 /}|
  451.                         { 新規作成 / 内容更新 \n}|
  452.                 {s              / 登録 / 削除 / 取消 \n},
  453.                 file);
  454. file:=    @head(@getline(a,1,1),{\n});    %sel    @head(@getline(a,2,1),{\n});
  455. ok:=    @head(@getline(a,3,1),{\n});
  456.         case    (sel,{ 1},{file:=@FILEsel1;im({Yes})},
  457.             { 2},{SHINKI;im({Yes})},
  458.             { 3},{KOUSHIN(file,memono+1);im({Yes})});
  459.         case    (ok,{ 1},{case    (@getchar(file,2,2)={:\},
  460.                 {No},{footnote(ERRMSG);im({Yes})},
  461.                 {Yes},
  462.                 {im({profile=}|{;}|{file=}|file|{;\n})}
  463.                 )},
  464.             { 2},{im({})},{ 3},{im(upld)},
  465.             ,{case(sel={ 0},{Yes},{im(upld)})}
  466.             )})};
  467. /*    メモ書き込み制御文更新    */
  468. %UPDmemo{[upld]
  469.     footnote({メモ書き込み情報登録制御文更新});
  470.     var file[40];var memoK[32];var ok[2];
  471.     file:=    @tail(upld,{file=},{;});
  472.     loop    ({%a    @plane(    {cメモ書き込み情報登録\n}|
  473.                 {t 登録ファイル /\n}|
  474.                 {s              / ﾌｧｲﾙ一覧/}|
  475.                         { 新規作成/ 内容更新  \n}|
  476.                 {s              / 登録 / 削除/ 取消 \n},
  477.                 file    );
  478. file:=    @head(@getline(a,1,1),{\n});    %sel    @head(@getline(a,2,1),{\n});
  479. ok:=    @head(@getline(a,3,1),{\n});
  480.         case    (sel,{ 1},{file:=@FILEsel1;im({Yes})},
  481.             { 2},{MEMOset;im({Yes})},
  482.             { 3},{MEMOrset(file);im({Yes})});
  483.         case    (ok,{ 1},{case    (@getchar(file,2,2)={:\},
  484.                 {No},{footnote(ERRMSG);im({Yes})},
  485.                 {Yes},
  486.                 {im({whomemo=}|{;}|{file=}|file|{;\n})}
  487.                 )},
  488.             { 2},{im({})},{ 3},{im(upld)},
  489.             ,{case(sel={ 0},{Yes},{im(upld)})}
  490.             )})};
  491. /*    ファイルコピー    */
  492. %FILECOPY{footnote({読み込むファイルを選択してください});
  493.     setcdir(UP);    %file    @filesel;
  494.     case    (file={},
  495.         {Yes},{CloseAllMemo},
  496.         {No},{CloseAllMemo;madd(memono+1,{\n});mclear(memono+1);
  497.         case(@filechk(file),{Yes},{mread(file,memono+1)});
  498.         mopen(memono,0,21,639,240,{r});mclose(1);
  499.         mopen(memono+1,0,241,639,459,{r} );
  500.         select({このファイル内容を追加してもいいですか？},
  501.             Wtime4,{CloseAllMemo},
  502.             {  Ｏ　Ｋ　},
  503.             {CloseAllMemo;dispoff({Yes});
  504.             command({copy }|TEMP2|{_mopres.ctl + }|file|
  505.                 { }|TEMP2|{_mopres.ctl});
  506.             mclear(memono);mclear(memono);
  507.             mread(TEMP2|{_mopres.ctl},memono)},
  508.             {　Ｎ　Ｇ　},{CloseAllMemo}
  509.             )})};
  510. /*    手動編集    */
  511. %HANDEDIT{CloseAllMemo;mopen(memono,0,21,639,459,{w});
  512.     loop    ({footnote({終了　　　　　　取消},{b});waitx();
  513.         case    (@xtype,
  514.             101,{CloseAllMemo;
  515.                 mwrite(TEMP2|{_mopres.ctl},memono);im({No})},
  516.             201,{CloseAllMemo;
  517.                 mwrite(TEMP2|{_mopres.ctl},memono);im({No})},
  518.             105,{    CloseAllMemo;mclear(memono);
  519.                 case(@filechk(TEMP2|{_mopres.ctl}),{Yes},
  520.                     {mread(TEMP2|{_mopres.ctl},memono)});
  521.                 im({No})},
  522.             205,{    CloseAllMemo;mclear(memono);
  523.                 case(@filechk(TEMP2|{_mopres.ctl}),{Yes},
  524.                     {mread(TEMP2|{_mopres.ctl},memono)});
  525.                 im({No})},
  526.             ,{im({Yes})});
  527.         })};
  528. /*    オートアップロード制御ファイル作成メインループ    */
  529. %SETUP    {[memono]
  530.     CloseAllMemo;delfile(TEMP2|{_mopres.ctl});
  531.     copyfile(UP2|{_mopres.ctl},TEMP2|{_mopres.ctl});
  532.     madd(memono,{\n});mclear(memono);
  533.     case    (@filechk(TEMP2|{_mopres.ctl}),
  534.         {Yes},{mread(TEMP2|{_mopres.ctl},memono)});
  535.     loop    ({mopen(memono,0,21,639,459,{r});
  536.         footnote({終了　　　　　　取消変更追加読込　　　　編集},{b});
  537.         waitx();
  538.         case    (@xtype,
  539.             101,{    delfile(UP2|{_mopres.ctl});
  540.                 copyfile(TEMP2|{_mopres.ctl},
  541.                     UP2|{_mopres.ctl});
  542.                 im({No})},
  543.             201,{    delfile(UP2|{_mopres.ctl});
  544.                 copyfile(TEMP2|{_mopres.ctl},
  545.                     UP2|{_mopres.ctl});
  546.                 im({No})},
  547.             105,{im({No})},205,{im({No})},
  548.             106,{UPDATE1;im({Yes})},206,{UPDATE1;im({Yes})},
  549.             107,{SETUP1;im({Yes})},207,{SETUP1;im({Yes})},
  550.             108,{FILECOPY;im({Yes})},208,{FILECOPY;im({Yes})},
  551.             111,{HANDEDIT;im({Yes})},211,{HANDEDIT;im({Yes})},                memono,{UPDATE1;im({Yes})},,{CloseAllMemo;im({Yes})});
  552.         });
  553.     /* ログ参照に使用したメモの削除処理 */
  554.     loop({case(@mcheck>=memono,{Yes},{mclose(3)});im(@mcheck>=memono)});
  555.     CloseAllMemo;
  556.     loop    ({case    (@mlast>=memono,
  557.             {Yes},{case(@mcheck!=@mlast,{Yes},{mopen(@mlast)});
  558.                 mclose(3);im({Yes})},
  559.             {No},{im({No})});
  560.         });setcdir(CDIR)};
  561. /*    アップロード制御ファイル作成処理    */
  562. %ERRMSG    {ファイル名はドライブからのフルパスで指定してください};
  563. footnote({アップロード制御ファイルのセットアップを行います});wait({2});
  564. %memono    @mlast+1;
  565. case    (memono>8,{No},{SETUP(memono)},{Yes},{SNDMSG    ({kaknin_f.snd});
  566.         select    ({メモ8-9の内容が消去されます  よろしいですか？},
  567.             Wtime4,,{ は　い },{SETUP(8)},{ いいえ },)});